home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / dbhamlog / jcg.prg < prev    next >
Text File  |  1991-10-18  |  2KB  |  94 lines
  1. ******   市郡番号  検索  ************
  2. *******   JCG.PRG    ***** T.CHINO ** 
  3. SET ORDER TO 4
  4. SET EXACT OFF
  5. DO WHILE .T. && *****************************************0
  6. STORE "     " TO JCG
  7.   @ 22,20 SAY "     検索する 市郡番号は   ? " GET  JCG
  8.   READ
  9.   CLEAR GET
  10.  
  11. IF JCG=" "
  12. RETURN
  13. ENDIF
  14.  
  15. CLEAR
  16. GOTO TOP
  17.  
  18. JCG=TRIM(JCG)
  19. FIND &JCG
  20. **SEEK F
  21.  
  22. SET CURSOR OFF
  23. STORE 6 TO Y
  24. DO WHILE .NOT. EOF() 
  25. SET COLOR TO G
  26.   @ 1,4   SAY "市郡番号"
  27. SET COLOR TO GR
  28.   @ 2,4   SAY JCG
  29.   SET COLOR TO BR
  30.   @ 1,15   SAY "*************************************************"
  31.   @ 2,15   SAY "*                                               *"
  32.   @ 3,15   SAY "********************************* 周波数帯.PRG **"
  33. SET COLOR TO GR
  34.   @ 2,18   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"
  35. SET COLOR TO BG
  36.     @ 4,1 SAY "月/日/年  呼出符号 電波 周波数 氏  名     住         所              JCC_G QSL"
  37. SET COLOR TO BR
  38.     @ 5,1 SAY "------------------------------------------------------------------------------"
  39. DO WHILE .T.
  40.      L=LEN(JCG)
  41.      JC=LEFT(JCC_G,L)
  42.   IF JC<>JCG .OR. LEN(TRIM(JCC_G))<>L
  43.     EXIT
  44.   ENDIF
  45.  
  46.  SET COLOR TO G
  47.     @ Y,1  SAY MMDDYY
  48.     @ Y,11 SAY CALL
  49.     @ Y,20 SAY WAVE
  50.     @ Y,26 SAY FREQ 
  51.     @ Y,32 SAY NAME 
  52.     @ Y,43 SAY ADDRES 
  53.     @ Y,70 SAY JCC_G
  54.     @ Y,76 SAY QSL 
  55.     STORE Y+1 TO Y
  56.      IF Y>=21
  57.       SET COLOR TO GR
  58.         WAIT
  59.         CLEAR
  60.         STORE 6 TO Y
  61.         SKIP
  62.         EXIT
  63.      ENDIF
  64.     SKIP
  65.   ENDDO
  66.  
  67.   IF JC<>JCG .OR. LEN(TRIM(JCC_G))<>L
  68.     EXIT
  69.   ENDIF
  70.  
  71.  ENDDO
  72. SET COLOR TO R
  73. @ 22,0 SAY " 該当 デ－タの 検索 終了 です "
  74.  
  75. SET CURSOR ON
  76. SET COLOR TO GR
  77.  
  78. STORE " " TO PRN
  79. @ 23,0 SAY " 検索結果を印刷しますか　？ ( Y/N )" GET PRN
  80. READ
  81. CLEAR GET
  82. IF PRN="Y"
  83. SET COLOR TO G
  84. @ 22,0 SAY "       検索 デ－タの 印刷中 です            "
  85. DO INJIJCG && *********************************************** 印刷分岐
  86. ENDIF
  87.  
  88. @ 23,0 SAY "                                            "
  89. @ 22,0 SAY "                                            "
  90. LOOP
  91. ENDDO && ************************0
  92. SET CURSOR ON
  93. RETURN
  94.